object FrameTalkingClock: TFrameTalkingClock Left = 0 Top = 0 Width = 509 Height = 398 TabOrder = 0 object GroupBox_Interval: TGroupBox Left = 0 Top = 24 Width = 450 Height = 65 Caption = 'Interval' TabOrder = 0 object LabelX: TLabel Left = 224 Top = 28 Width = 36 Height = 13 Caption = 'minutes' end object ComboBox_Interval: TComboBox Left = 144 Top = 24 Width = 73 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 1 OnChange = ComboBox_IntervalChange Items.Strings = ( '5' '10' '15' '30' '60') end object CheckBox_Interval: TCheckBox Left = 16 Top = 26 Width = 121 Height = 17 Caption = 'Say the time every' Checked = True State = cbChecked TabOrder = 0 OnClick = CheckBox_IntervalClick end end object GroupBox_Snooze: TGroupBox Left = 0 Top = 96 Width = 450 Height = 65 Caption = 'Snooze' TabOrder = 1 object Label4: TLabel Left = 248 Top = 28 Width = 18 Height = 13 Caption = 'and' end object CheckBox_Snooze: TCheckBox Left = 16 Top = 26 Width = 129 Height = 17 Caption = 'Don'#39't speak between' Checked = True State = cbChecked TabOrder = 0 OnClick = CheckBox_SnoozeClick end object DateTimePicker1: TDateTimePicker Left = 144 Top = 24 Width = 97 Height = 21 Date = 37378.365285266200000000 Time = 37378.365285266200000000 Kind = dtkTime TabOrder = 1 OnChange = DateTimePicker1Change end object DateTimePicker2: TDateTimePicker Left = 272 Top = 24 Width = 97 Height = 21 Date = 37378.366698981500000000 Time = 37378.366698981500000000 Kind = dtkTime TabOrder = 2 OnChange = DateTimePicker2Change end end object GroupBox_WhatToSay: TGroupBox Left = 0 Top = 168 Width = 450 Height = 182 Caption = 'What to say' TabOrder = 2 object Bevel1: TBevel Left = 8 Top = 128 Width = 433 Height = 10 Shape = bsBottomLine end object CheckBox_Chime: TCheckBox Left = 16 Top = 56 Width = 137 Height = 17 Caption = 'Play chime' Checked = True State = cbChecked TabOrder = 1 OnClick = CheckBox_ChimeClick end object CheckBox_Date: TCheckBox Left = 16 Top = 80 Width = 137 Height = 17 Caption = 'Say the date' Checked = True State = cbChecked TabOrder = 3 OnClick = CheckBox_DateClick end object CheckBox_Time: TCheckBox Left = 16 Top = 104 Width = 137 Height = 17 Caption = 'Say the time' Checked = True State = cbChecked TabOrder = 6 OnClick = CheckBox_TimeClick end object CheckBox_SayOrder: TCheckBox Left = 16 Top = 24 Width = 345 Height = 17 Caption = 'Say the time first, then say the day' Checked = True State = cbChecked TabOrder = 0 OnClick = CheckBox_SayOrderClick end object ComboBox_DatePrefix: TComboBox Left = 160 Top = 80 Width = 129 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 4 OnChange = ComboBox_DatePrefixChange Items.Strings = ( 'On' 'It is' 'Today is' 'The date is') end object ComboBox_DateFormat: TComboBox Left = 288 Top = 80 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 5 OnChange = ComboBox_DateFormatChange Items.Strings = ( 'Short date' 'Medium date' 'Long date') end object ComboBox_TimePrefix: TComboBox Left = 160 Top = 104 Width = 129 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 7 OnChange = ComboBox_TimePrefixChange Items.Strings = ( 'The time is' 'It is') end object ComboBox_TimeFormat: TComboBox Left = 288 Top = 104 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 8 OnChange = ComboBox_TimeFormatChange Items.Strings = ( '12-hour format' '24-hour format' 'Military format') end object Button_Test: TButton Left = 352 Top = 146 Width = 83 Height = 25 Caption = 'Test' Default = True TabOrder = 9 OnClick = Button_TestClick end object ComboBox_Chimes: TComboBox Left = 160 Top = 56 Width = 273 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 2 OnChange = ComboBox_ChimesChange end end object Panel_Caption: TPanel Left = 0 Top = 0 Width = 450 Height = 20 BevelOuter = bvNone TabOrder = 3 object Shap_Caption: TShape Left = 0 Top = 0 Width = 450 Height = 20 Align = alClient Brush.Color = 12937777 end object Label_Caption: TLabel Left = 6 Top = 1 Width = 81 Height = 16 Caption = 'Talking Clock' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False Transparent = True end end object Timer_Talking: TTimer OnTimer = Timer_TalkingTimer Left = 408 Top = 40 end end